home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / COMPNENT / ISAMEXPT / ISAMEXPT.ZIP / UTOOLDLL.INT < prev    next >
Text File  |  1996-04-05  |  2KB  |  60 lines
  1. unit Utooldll;
  2.  
  3. interface
  4. Uses WinTypes;
  5.  
  6.   Procedure Delay(ms : LongInt); far;
  7.   Procedure MeldeWindow( U1,S1,S2 : String);
  8.     {Message-Window, U1 = Title of Window,
  9.                      S1 and S2 is Text in Window}
  10.   procedure ErrorWindow(s1,s2:String);
  11.     {Messagewindow for Errors}
  12.  
  13.   procedure WaitWindow(S1,S2:String);
  14.     {Window that will display Wait-Message,
  15.      can be called repeatedly to change text in Window,
  16.      must be Destroyed by CLOSEWAIT}
  17.   procedure CloseWait;
  18.     {Closes WAITWINDOW}
  19.   Function JaNein(S1,S2:STRING):Boolean; far;
  20.     {Asks user the question given in S1+S2,
  21.      has buttons YES and NO}
  22.   Function Space(SpZahl: Integer): String;
  23.     {fills string with SPZAHL Spaces}
  24.   Function F(S: String; Len: Byte): String;
  25.     {fills string with spaces, until it has Length LEN}
  26.   Function LowerCase(Ch: String): String;
  27.     {converts String to LOWERCASE}
  28.   Function Strip(Var S: String): String;
  29.     {removes all spaces from string}
  30.   Function RStrip(Var S: String): String;
  31.     {removes all Spaces at the end of the string}
  32.   Function String_ANSI2OEM(Conv: Boolean; S: String): String;
  33.     {converts ANSI strings to OEM-Strings, if CONV is true}
  34.   Function String_OEM2ANSI(Conv: Boolean; S: String): String;
  35.     {converts OEM-Strings to ANSI-Strings, if CONV is true}
  36.   Function Password(Passwort: String): Boolean;
  37.     {displays a PASSWORD-Dialog, returns TRUE, if PASSWORD is correctly input}
  38.   function StrDez (Str:String):Real;
  39.     {converts a string to real}
  40.   Function DezStr (Dez:real):String;
  41.     {converts a number to a string}
  42.   function FormDezStr (wert:real;len,ankm:byte):String;
  43.     {converts a number to a string, LEN is length of string, ANKM is decimal places}
  44.   Function Intstr (wert : longint):String;
  45.     {converts Integer to string}
  46.   Function DateStr(Datum:longint):String;
  47.     {converts ISAM-Date-LONGINT to STRING}
  48.   function StrDate (St:String):longint;
  49.     {converst STRING "01.12.1995" to a ISAM-Longint-Date}
  50.   Function TimeStr(Zeit:longint):String;
  51.     {see DATESTR}
  52.  
  53.   CONST SPRACHE: BYTE = 0; {0 = German, 1 = Englisch)
  54.   {set SPRACHE:= 1 in FORMCREATE-Method of your Main-Form and you will
  55.    receive all messages in english.
  56.    setzen Sie SPRACHE:= 0 in der FORMCREATE-Methode Ihres Haupt-Forms
  57.    und Sie erhalten alle Messages in deutsch.}
  58.  
  59. Implementation
  60.